Sub zad3()
Dim x As Long, j As Long, d As Long, s As Long
x = InputBox("unesite trocifreni broj")
j = x Mod 10
s = x \ 100
d = (x \ 10) Mod 10
x = j * 100 + d * 10 + s
MsgBox ("broj je " & x)
End Sub